Function GET_COL( As String) As Integer

    GET_COL = Cells(1, ).Column

End Function